library(pheatmap)
x<-read.csv("data(noname).csv",head=TRUE)
c<-cor(x)
pheatmap::pheatmap(c,display_numbers = TRUE,number_color = "blue", 
                   cluster_rows = FALSE, cluster_cols=FALSE)

library(factoextra)
testX=USArrests
testRet=dist(testX, method = "euclidean")
x<-read.csv("hclust.csv",head=TRUE,row.names = 1)
result <- dist(x, method = "euclidean")
hc<-hclust(result)
fviz_dend(hc, cex = 0.6)